home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / findfi_1 / form5.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-08-19  |  3.2 KB  |  103 lines

  1. VERSION 5.00
  2. Begin VB.Form Form5 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "3D Button"
  5.    ClientHeight    =   765
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   1695
  9.    Icon            =   "Form5.frx":0000
  10.    LinkTopic       =   "Form5"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   765
  14.    ScaleWidth      =   1695
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.Label Label1 
  17.       Alignment       =   2  'Center
  18.       BackStyle       =   0  'Transparent
  19.       Caption         =   "3D Button"
  20.       BeginProperty Font 
  21.          Name            =   "MS Sans Serif"
  22.          Size            =   9.75
  23.          Charset         =   0
  24.          Weight          =   700
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       Height          =   255
  30.       Left            =   120
  31.       TabIndex        =   0
  32.       Top             =   240
  33.       Width           =   1335
  34.    End
  35.    Begin VB.Line Line1 
  36.       BorderColor     =   &H00FFFFFF&
  37.       Index           =   1
  38.       Visible         =   0   'False
  39.       X1              =   120
  40.       X2              =   120
  41.       Y1              =   120
  42.       Y2              =   600
  43.    End
  44.    Begin VB.Line Line1 
  45.       BorderColor     =   &H00808080&
  46.       Index           =   2
  47.       Visible         =   0   'False
  48.       X1              =   1560
  49.       X2              =   1560
  50.       Y1              =   120
  51.       Y2              =   600
  52.    End
  53.    Begin VB.Line Line1 
  54.       BorderColor     =   &H00FFFFFF&
  55.       Index           =   0
  56.       Visible         =   0   'False
  57.       X1              =   120
  58.       X2              =   1560
  59.       Y1              =   120
  60.       Y2              =   120
  61.    End
  62.    Begin VB.Line Line1 
  63.       BorderColor     =   &H00808080&
  64.       Index           =   3
  65.       Visible         =   0   'False
  66.       X1              =   120
  67.       X2              =   1560
  68.       Y1              =   600
  69.       Y2              =   600
  70.    End
  71. Attribute VB_Name = "Form5"
  72. Attribute VB_GlobalNameSpace = False
  73. Attribute VB_Creatable = False
  74. Attribute VB_PredeclaredId = True
  75. Attribute VB_Exposed = False
  76. Dim Shift As Control
  77. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  78. For Z = 0 To 3
  79.     Line1(Z).Visible = False
  80. Next Z
  81. End Sub
  82. Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  83. If Button = vbLeftButton Then
  84.     Line1(0).BorderColor = QBColor(8)
  85.     Line1(1).BorderColor = QBColor(8)
  86.     Line1(2).BorderColor = QBColor(15)
  87.     Line1(3).BorderColor = QBColor(15)
  88. End If
  89. End Sub
  90. Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  91. For Z = 0 To 3
  92.     Line1(Z).Visible = True
  93. Next Z
  94. End Sub
  95. Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  96. If Button = vbLeftButton Then
  97.     Line1(0).BorderColor = QBColor(15)
  98.     Line1(1).BorderColor = QBColor(15)
  99.     Line1(2).BorderColor = QBColor(8)
  100.     Line1(3).BorderColor = QBColor(8)
  101. End If
  102. End Sub
  103.